home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 …SCII & the Runetime Code / ADC Developer CD (1992-07) (''Butch ASCII And The Runtime Code'')_iso / Dev.CD 199207.iso / Development Platforms / Apple II / HyperCardIIGS / Developer Tools / MPW.Interfaces / PIIGSIncludes / HyperXCMD.p
Encoding:
Text File  |  1991-08-23  |  7.0 KB  |  253 lines  |  [TEXT/MPS ]
  1. { *********************************************************
  2.  
  3.   File: HyperXCMD.p
  4.  
  5.   Definition file for HyperCard XCMDs and XFCNs in Pascal
  6.   For use with HyperCard IIGS Version 1.1
  7.  
  8.   Copyright © Apple Computer, Inc. 1990-91
  9.   All Rights Reserved
  10.  
  11. ********************************************************* }
  12.  
  13. UNIT HyperXCMD;
  14.  
  15. INTERFACE
  16.  
  17. USES 
  18.   Types,
  19.    QuickDraw;
  20.  
  21. CONST 
  22.   _CallBackVector = $E10220;
  23.  
  24.   { XCMDBlock constants for event.what... }
  25.   xOpenEvt          = 1000;     { the first event after you are created }
  26.   xCloseEvt         = 1001;     { your window is being forced close }
  27.   xHidePalettesEvt    = 1004;        { someone called HideHCPalettes }
  28.   xShowPalettesEvt    = 1005;        { someone called ShowHCPalettes }
  29.   xCursorWithin        = 1300;        { cursor is within the window }
  30.  
  31.   { XWindow styles }
  32.   xWindoidStyle        = 0;
  33.   xRectStyle        = 1;
  34.   xShadowStyle        = 2;
  35.   xDialogStyle        = 3;
  36.   
  37. TYPE 
  38.   Str19 = String[19];
  39.   Str31 = String[31];
  40.  
  41.   { XWindoid event record }   
  42.   XWEventInfoPtr = ^XWEventInfo;
  43.   XWEventInfo = RECORD
  44.     eventWindow:     WindowPtr;
  45.     event:              EventRecord;
  46.     eventParams:     ARRAY[1..9] OF LongInt;
  47.     eventResult:     Handle;
  48.   END;
  49.                 
  50.   XCmdPtr = ^XCmdBlock;
  51.   XCmdBlock = RECORD
  52.     paramCount:        INTEGER;
  53.     params:            ARRAY[1..16] OF Handle;
  54.     returnValue:    Handle;
  55.     passFlag:        BOOLEAN;
  56.     userID:            INTEGER;
  57.     returnStat:        INTEGER;    { 0 if normal return, 1 for error }
  58.   END;
  59.  
  60.  
  61. (****  HyperTalk Utilities  ****)
  62. FUNCTION EvalExpr (expr: Str255): Handle;
  63. INLINE $A2,$0002,$22,_CallBackVector;
  64.  
  65. PROCEDURE SendCardMessage (msg: Str255);
  66. INLINE $A2,$0001,$22,_CallBackVector;
  67.  
  68. PROCEDURE SendHCMessage (msg: Str255);
  69. INLINE $A2,$0005,$22,_CallBackVector;
  70.  
  71.  
  72. (****  Memory Utilities  ****)
  73. FUNCTION GetGlobal (globName: Str255): Handle;
  74. INLINE $A2,$0012,$22,_CallBackVector;
  75.  
  76. PROCEDURE SetGlobal (globName: Str255; globValue: Handle);
  77. INLINE $A2,$0013,$22,_CallBackVector;
  78.  
  79. PROCEDURE ZeroBytes (dstPtr: Ptr; longCount: Longint);
  80. INLINE $A2,$0006,$22,_CallBackVector;
  81.  
  82.  
  83. (****  String Utilities  ****)
  84. FUNCTION GSStringEqual (src1: GSString255Hndl; src2: GSString255Hndl): BOOLEAN;
  85. INLINE $A2,$0022,$22,_CallBackVector;
  86.  
  87. PROCEDURE ScanToReturn (VAR scanPtr: Ptr);
  88. INLINE $A2,$001C,$22,_CallBackVector;
  89.  
  90. PROCEDURE ScanToZero (VAR scanPtr: Ptr);
  91. INLINE $A2,$001D,$22,_CallBackVector;
  92.  
  93. FUNCTION StringEqual (str1: Str255; str2: Str255): BOOLEAN;
  94. INLINE $A2,$001A,$22,_CallBackVector;
  95.  
  96. FUNCTION StringLength (strPtr: Ptr): Longint;
  97. INLINE $A2,$0003,$22,_CallBackVector;
  98.  
  99. FUNCTION StringMatch (stringPattern: Str255; target: Ptr): Ptr;
  100. INLINE $A2,$0004,$22,_CallBackVector;
  101.  
  102.  
  103. (****  String Conversions  ****)
  104. FUNCTION BoolToStr (bool: BOOLEAN): Str31;
  105. INLINE $A2,$0010,$22,_CallBackVector;
  106.  
  107. FUNCTION CopyGSString (src: GSString255Hndl): GSString255Hndl;
  108. INLINE $A2,$0020,$22,_CallBackVector;
  109.  
  110. FUNCTION GSConcat (src1: GSString255Hndl; src2: GSString255Hndl): GSString255Hndl;
  111. INLINE $A2,$0021,$22,_CallBackVector;
  112.  
  113. FUNCTION ExtToStr (extendedNumber: Extended): Str31;
  114. INLINE $A2,$0011,$22,_CallBackVector;
  115.  
  116. FUNCTION GSToPString (src: GSString255Hndl): Str255;
  117. INLINE $A2,$001E,$22,_CallBackVector;
  118.  
  119. FUNCTION GSToZero (src: GSString255Hndl): Handle;
  120. INLINE $A2,$0023,$22,_CallBackVector;
  121.  
  122. FUNCTION LongToStr (posNum: Longint): Str31;
  123. INLINE $A2,$000D,$22,_CallBackVector;
  124.  
  125. FUNCTION NumToHex (longNumber: Longint; nDigits: INTEGER): Str19;
  126. INLINE $A2,$000F,$22,_CallBackVector;
  127.  
  128. FUNCTION NumToStr (longNumber: Longint): Str31;
  129. INLINE $A2,$000E,$22,_CallBackVector;
  130.  
  131. FUNCTION PasToZero (str: Str255): Handle;
  132. INLINE $A2,$0007,$22,_CallBackVector;
  133.  
  134. PROCEDURE PointToStr(pt: Point; VAR str: Str255);
  135. INLINE $A2,$002D,$22,_CallBackVector;
  136.  
  137. FUNCTION PToGSString (src: Str255): GSString255Hndl;
  138. INLINE $A2,$001F,$22,_CallBackVector;
  139.  
  140. PROCEDURE RectToStr(rct: Rect; VAR str: Str255);
  141. INLINE $A2,$002E,$22,_CallBackVector;
  142.  
  143. PROCEDURE ReturnToPas (zeroStr: Ptr; VAR pasStr: Str255);
  144. INLINE $A2,$001B,$22,_CallBackVector;
  145.  
  146. FUNCTION StrToBool (str: Str31): BOOLEAN;
  147. INLINE $A2,$000B,$22,_CallBackVector;
  148.  
  149. FUNCTION StrToExt (str: Str31): Extended;
  150. INLINE $A2,$000C,$22,_CallBackVector;
  151.  
  152. FUNCTION StrToLong (str: Str31): Longint;
  153. INLINE $A2,$0009,$22,_CallBackVector;
  154.  
  155. FUNCTION StrToNum (str: Str31): Longint;
  156. INLINE $A2,$000A,$22,_CallBackVector;
  157.  
  158. PROCEDURE StrToPoint(str: Str255; VAR pt: Point);
  159. INLINE $A2,$002F,$22,_CallBackVector;
  160.  
  161. PROCEDURE StrToRect(str: Str255; VAR rct: Rect);
  162. INLINE $A2,$0030,$22,_CallBackVector;
  163.  
  164. FUNCTION ZeroToGS (src: Handle): GSString255Hndl;
  165. INLINE $A2,$0024,$22,_CallBackVector;
  166.  
  167. PROCEDURE ZeroToPas (zeroStr: Ptr; VAR pasStr: Str255);
  168. INLINE $A2,$0008,$22,_CallBackVector;
  169.  
  170.  
  171. (****  Field Utilities  ****)
  172. FUNCTION GetFieldByID (cardFieldFlag: BOOLEAN; fieldID: INTEGER): Handle;
  173. INLINE $A2,$0016,$22,_CallBackVector;
  174.  
  175. FUNCTION GetFieldByName (cardFieldFlag: BOOLEAN; fieldName: Str255): Handle;
  176. INLINE $A2,$0014,$22,_CallBackVector;
  177.  
  178. FUNCTION GetFieldByNum (cardFieldFlag: BOOLEAN; fieldNum: INTEGER): Handle;
  179. INLINE $A2,$0015,$22,_CallBackVector;
  180.  
  181. PROCEDURE SetFieldByID (cardFieldFlag: BOOLEAN; fieldID: INTEGER; fieldVal: Handle);
  182. INLINE $A2,$0019,$22,_CallBackVector;
  183.  
  184. PROCEDURE SetFieldByName (cardFieldFlag: BOOLEAN; fieldNName: Str255; fieldVal: Handle);
  185. INLINE $A2,$0017,$22,_CallBackVector;
  186.  
  187. PROCEDURE SetFieldByNum (cardFieldFlag: BOOLEAN; fieldNum: INTEGER; fieldVal: Handle);
  188. INLINE $A2,$0018,$22,_CallBackVector;
  189.  
  190.  
  191. (****  Graphic Utilities  ****)
  192. PROCEDURE ChangedMaskAndData(whatChanged: INTEGER);
  193. INLINE $A2,$002C,$22,_CallBackVector;
  194.  
  195. PROCEDURE GetMaskAndData(VAR mask: LocInfo; VAR data: LocInfo);
  196. INLINE $A2,$002B,$22,_CallBackVector;
  197.  
  198.  
  199. (****  Miscellaneous Utilities  ****)
  200. PROCEDURE BeginXSound;
  201. INLINE $A2,$0029,$22,_CallBackVector;
  202.  
  203. PROCEDURE EndXSound;
  204. INLINE $A2,$002A,$22,_CallBackVector;
  205.  
  206.  
  207. (****  Resource Names Utilities  ****)
  208. FUNCTION FindNamedResource (resourceType: INTEGER; resourceName: Str255;
  209.                             VAR theFile: INTEGER; VAR resourceID: Longint): BOOLEAN;
  210. INLINE $A2,$0026,$22,_CallBackVector;
  211.  
  212. FUNCTION GetResourceName (resourceType: INTEGER; resourceID: Longint): Str255;
  213. INLINE $A2,$0028,$22,_CallBackVector;
  214.  
  215. FUNCTION LoadNamedResource (resourceType: INTEGER; resourceName: Str255): Handle;
  216. INLINE $A2,$0025,$22,_CallBackVector;
  217.  
  218. PROCEDURE SetResourceName (resourceType: INTEGER; resourceID: Longint; resourceName: Str255);
  219. INLINE $A2,$0027,$22,_CallBackVector;
  220.  
  221.  
  222. (****  Creating and Disposing XWindoids  ****)
  223. FUNCTION NewXWindow(boundsRect: Rect; title: Str31; visible: BOOLEAN;
  224.                     windowStyle: INTEGER): WindowPtr;
  225. INLINE $A2,$0031,$22,_CallBackVector;
  226.  
  227. PROCEDURE CloseXWindow(window: WindowPtr);
  228. INLINE $A2,$0033,$22,_CallBackVector;
  229.  
  230.  
  231. (****  XWindoid Utilities  ****)
  232. FUNCTION GetXWindowValue(window: WindowPtr): LongInt;
  233. INLINE $A2,$0037,$22,_CallBackVector;
  234.  
  235. PROCEDURE HideHCPalettes;
  236. INLINE $A2,$0034,$22,_CallBackVector;
  237.  
  238. PROCEDURE ShowHCPalettes;
  239. INLINE $A2,$0035,$22,_CallBackVector;
  240.  
  241. PROCEDURE SetXWIdleTime(window: WindowPtr; interval: LongInt);
  242. INLINE $A2,$0032,$22,_CallBackVector;
  243.  
  244. PROCEDURE SetXWindowValue(window: WindowPtr; customValue: LongInt);
  245. INLINE $A2,$0036,$22,_CallBackVector;
  246.  
  247. PROCEDURE XWAllowReEntrancy(window: WindowPtr; allowSysEvts: BOOLEAN; allowHCEvts: BOOLEAN);
  248. INLINE $A2,$0038,$22,_CallBackVector;
  249.  
  250.  
  251. IMPLEMENTATION
  252. END.
  253.